home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / z.ada < prev    next >
Text File  |  1996-01-30  |  600b  |  38 lines
  1. -- Test program 8  
  2. -- 4/12/1994
  3.  
  4. WITH Ada.Text_IO; USE Ada.Text_IO;
  5.  
  6. PROCEDURE Z IS
  7.     TASK TYPE T IS
  8.         ENTRY E1(C : Character);
  9.     END T;
  10.  
  11.     TASK BODY T IS
  12.         My_C : Character;
  13.     BEGIN
  14.         ACCEPT E1(C : Character) DO
  15.             My_C := C;
  16.             Put("Task ");
  17.             Put(My_C);
  18.             Put_Line(" is running.");
  19.         END E1;
  20.         FOR I IN 1 .. 3 LOOP
  21.             DELAY 0.01;
  22.             Put(My_C);
  23.         END LOOP;
  24.     New_Line;
  25.     END T;
  26. BEGIN
  27.     Put_Line("Main Initiating.");
  28.     DECLARE
  29.         T1, T2, T3, T4 : T;
  30.     BEGIN
  31.         T1.E1('a');
  32.         T2.E1('b');
  33.         T3.E1('c');
  34.         T4.E1('d');
  35.     END;
  36.     New_Line;
  37.     Put_Line("Main Terminating.");
  38. END Z;